The Shiny application uses Facility Greenhouse Gas (GHG) Data from the governmet of Canada's Greenhouse Gas Reporting Program (GHGRP). For more information, click here.

The interative map displays the locations of facilities with reported green-house gas emissions and allows the user to choose a province from the dropdown menu. The map will then zoom in to the chosen province. It will also update the plots based on the chosen province and zoomed in area.

Further ore, the tab called Data Explorer displays a table of more details regarding the greenhouse gas emissions and is instantly updated as the user zoomes into the map. So it only displays information about what's currently being viewed in the map. Try it out!

The Shiny application makes use of leaflet pacakge to display the interactive map. Here is an example of what a simple version of the map would look like for a subset of the data:

ghg <- read_rds(path = "./ghgData.rds")

ghg.ontario <- ghg %>% 
        filter(Facility.Province.or.Territory=="Ontario") %>% 
        filter(complete.cases(Latitude))

ghg.ontario %>% leaflet() %>% addTiles() %>% 
        addCircleMarkers(lng = ~Longitude, lat = ~Latitude,popup = ~Facility.Name)

In the Shiny app, when the user selects a specific province or territory, the plots in the Shiny application get automatically updated. Here is an example of a bar plot that displays the amount of green-house gas emissions for each province (similar to what will appear in the shiny app, exept for a scatter plot).

Finally, the Data Explorer tab in the Shiny App shows a table of the greenhouse gas data with more details. A nice feature of this application is that the table is instantly filtered to only display data that is currently viewed in the Interactive Map tab. Here is an example of the summary table grouped by province showing the total amoint of CO2 eq. gas emissions.